COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	input font1base
C00003 00003	vardef char.T=
C00005 00004	% now we generate the font
C00009 ENDMK
C⊗;
input font1base
proofing:=1;
fontmaking:=1;

def tracingall=tracingcommands:=3;
 tracingedges:=1; tracingtitles:=1; tracingequations:=1; tracingspecs:=1;
	tracingpens:=1; tracingchoices:=1; tracingstats:=2;
 tracingonline:=1;tracingoutput:=1;tracingmacros:=3; xyzzy:=1 enddef;

hppp:=722.909/72.27;
vppp:=hppp;
designsize:=29;

%special "grayfont grbois";
def autolabel = makelabel(" 6") enddef;

fontfamily "CLASS";
codingscheme "ASCII LETTERS ONLY";
vardef char.T=
	setwidth.7em;
				%numeric a; %numeric b;
   	pos1(.25[thinwidth,thickwidth],70  );
	pos2(1thickwidth,30  );
	pos4(1thickwidth,30  );
	pos3(.5[thinwidth,thickwidth],60  );
	pos5(1.1thickwidth,10);
	pos6(1thickwidth,30);
		x1l=0;		y1r=capheight;
		x2=.5w;		y2r=capheight;
		x3r=w;		y3l=y2l;
		z4=z2;
		x5r=x2r;		y5=0;
		x6=x4; y6=.75[y5,y4];
	dz2=(1,0);
	curve(1,2,3);
%	stroke(4,5,.45,.2,0);
%dz4=(0,-1); 	stroke(4,5,.45,0,0);
dz4=dz6=(0,-1); 	curve(4,6,5);
	labelpos(1,2,3,4,5,6);

enddef;
% now we generate the font
% SELECT THE CORRECT init.... STATEMENT!
% SELECT proofing:=1 for pts/labels, :=.5 for smoke proofs, :=0 for fontmaking!

openwindow 0 from (0,0) to (420,500) at (-40,310);
window:=0;
%init.normal(1.618033);
%init.bold(1.618033);
init.boldx(1.618033);
vardef init.wierd(expr f) =
	begingroup
	numeric thinwidth,thickwidth,capheight,xheight,hheight,ydepth,em;
	thinwidth = 13f; thickwidth = 13f; em = 180f;
	capheight = 170f; xheight = 90f; hheight = 180f; ydepth = 60f;
	endgroup
enddef;
%init.wierd(sqrt2);


vardef make@#(expr ls,rs)=begingroup clear; charcode:=ord str@#;
 "the character "&str @#; char@#; chardw:=w+ls+rs; charwd:=chardw/hppp;
if proofing>.5: shipit;
else:
proofrule((0,hheight),(w+ls+rs,hheight));
proofrule((0,-ydepth),(w+ls+rs,-ydepth));
proofrule((0,-ydepth),(0,hheight));
proofrule((w+ls+rs,-ydepth),(w+ls+rs,hheight));
proofrule((0-10,0),(0+10,0));
proofrule((w+ls+rs-10,0),(w+ls+rs+10,0));
 shipout (currentpicture shifted (ls,0)); fi
endgroup enddef;

%proofing:=.5;
%proofing:=0;

tracingtitles:=1;
make.T(0,0);
fontdimen 1: 0, 1/3em/hppp, 1/6em/hppp, 1/9em/hppp, xheight/vppp,
	em/hppp, 1/9em/hppp;
end